home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
prog
/
word.arj
/
WGT13.C
< prev
next >
Wrap
C/C++ Source or Header
|
1993-01-28
|
2KB
|
86 lines
#include <conio.h>
#include <wgt.h>
/* WORDUP Graphics Toolkit Version 3.5
Demonstration program 13
Demonstrates mouse noclick, mousehape, msetspeed, and wbutt
*/
color palette[256];
int i,doneflag; // end of loop
unsigned wgtcursor[32] = {
0x3ff, 0x3ff, 0x7ff, 0x3ff, 0x1ff, 0x20ff,0xf07f,0xf8ff,
0xfdff,0x1000,0x0, 0x0, 0x1, 0x1, 0x1, 0x1,
0x0, 0x7800,0x7000,0x7800,0x5c00,0xe00 ,0x700, 0x200,
0x0, 0x0, 0x45ce,0x4504,0x5564,0x5524,0x7de4,0x0};
// this is the shape of the mouse cursor. There are many shareware
// or public domain programs that help you make these.
void main(void)
{
vga256(); // initializes system
for (i=1; i<253; i++)
wsetrgb(i,i+30,i+30,i,&palette); // just something other
// than black!
wsetrgb(253,60,60,60,&palette);
wsetrgb(254,50,50,50,&palette);
wsetrgb(255,40,40,40,&palette);
wsetpalette(0,255,&palette);
wcls(0);
wbutt(1,1,319,50);
wbutt(1,60,319,109);
wbutt(1,189,319,199);
wtextcolor(253);
wtexttransparent(0);
wouttextxy(30,10,"This button doesn't use noclick()",NULL);
wouttextxy(60,70,"This button does!",NULL);
wouttextxy(100,191,"Click here to quit",NULL);
minit(); // init mouse
msetbounds(0,0,319,199);
msetspeed(20,5); // make x slow and y real fast
mouseshape(0,0,wgtcursor); // 0,0 for hotspot
mon(); // turn it on
doneflag=0; // keep looping until flag is 1
do {
mread(); // read mouse
// stores info into mx,my,but
if (but !=0) // button pressed
{
if (my<50)
{
sound(500);
delay(30);
nosound();
}
else if ((my<109) & (my>60))
{
sound(500);
delay(30);
nosound();
noclick();
}
else if (my>189)
doneflag=1; // you hit the quit button
}
} while (!doneflag);
textmode(C80); // used to return to text mode
}